Sprite 1984 - 1993/Sprite 1984 - 1993.iso/src/cmds/bash-1.12/dist/examples/functions/dirname

Text File | 1991-10-11 | 573 b | 22 lines

# Date: Fri, 11 Oct 91 11:22:36 edt
# From: [e-mail]
# To: [e-mail]

# A replacement for dirname(1).  This one appears less often on some
# systems I use than basename(1), and I really depend on it for some
# things.  Usage: dirname [path]
function dirname ()
{
 local dir="$1"
 local tdir="${dir%/}"

    # Strip trailing '/' characters from dir (unusual that this should
    # ever occur, but dirname(1) seems to deal with it.)
    while [ "${tdir}" != "${dir}" ]; do
       tdir="${dir}"
       dir="${tdir%/}"
    done

    echo "${dir%/*}"
}